object MailForm: TMailForm Left = 176 Top = 157 Width = 483 Height = 398 Caption = 'TechFacts 95 Internet Email' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter OnCloseQuery = FormCloseQuery OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object ToolBar: TPanel Left = 0 Top = 0 Width = 475 Height = 33 Align = alTop TabOrder = 0 object CancelButton: TSpeedButton Tag = 1 Left = 64 Top = 4 Width = 25 Height = 25 Hint = 'Exit' Enabled = False Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 33333337777FF377FF3333993370739993333377FF373F377FF3399993000339 993337777F777F3377F3393999707333993337F77737333337FF993399933333 399377F3777FF333377F993339903333399377F33737FF33377F993333707333 399377F333377FF3377F993333101933399377F333777FFF377F993333000993 399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399 99333773FF777F777733339993707339933333773FF7FFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = CancelButtonClick end object AttachButton: TSpeedButton Left = 8 Top = 4 Width = 25 Height = 25 Hint = 'Attach' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000FFFFFFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00 FFFF000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBF00000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFFBFBFBF000000BFBF BFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF000000BFBFBFBFBFBFBFBFBF00000000FFFF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF007F 7FBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF 00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF FF007F7FBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00FFFF00 FFFF00FFFF00FFFF00FFFF007F7F007F7F007F7F000000BFBFBFBFBFBFBFBFBF BFBFBF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000007F 7F007F7F007F7FBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00FFFF00 FFFF00FFFF0000007F7F007F7F007F7F00000000007F7F000000BFBFBFBFBFBF BFBFBFBFBFBF00FFFF00FFFF00FFFF00FFFF00FFFF7F7F007F7F007F7F007F7F 007F7F00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00FFFF00 FFFF00FFFFFFFF000000007F7F000000007F7F00BFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBF00FFFF00FFFF00FFFF00FFFF0000000000007F7F000000 00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF00 0000BFBFBFBFBFBF7F7F007F7F007F7F00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F007F7F007F7F 00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF BFBFBFBFBFBFBFBF7F7F007F7F007F7F00BFBFBFBFBFBFBFBFBF} ParentShowHint = False ShowHint = True OnClick = AttachButtonClick end object StatusBar: TPanel Left = 96 Top = 1 Width = 378 Height = 31 Align = alRight Alignment = taLeftJustify BevelInner = bvLowered Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object BitBtn1: TBitBtn Left = 36 Top = 4 Width = 25 Height = 25 Hint = 'Paste from clipboard' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330FFFFF FFF03333337F3FFFF3F73333330F0000F0F03333337F777737373333330FFFFF FFF033FFFF7FFF33FFF77000000007F00000377777777FF777770BBBBBBBB0F0 FF037777777777F7F3730B77777BB0F0F0337777777777F7F7330B7FFFFFB0F0 0333777F333377F77F330B7FFFFFB0009333777F333377777FF30B7FFFFFB039 9933777F333377F777FF0B7FFFFFB0999993777F33337777777F0B7FFFFFB999 9999777F3333777777770B7FFFFFB0399933777FFFFF77F777F3070077007039 99337777777777F777F30B770077B039993377FFFFFF77F777330BB7007BB999 93337777FF777777733370000000073333333777777773333333} NumGlyphs = 2 end end object SendInfoPanel: TPanel Left = 0 Top = 33 Width = 475 Height = 90 Align = alTop BevelInner = bvLowered BevelOuter = bvNone Font.Color = clNavy Font.Height = -13 Font.Name = 'Fixedsys' Font.Style = [] ParentFont = False TabOrder = 1 object Label1: TLabel Left = 54 Top = 12 Width = 16 Height = 13 Caption = 'To:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 30 Top = 38 Width = 39 Height = 13 Caption = 'Subject:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 8 Top = 64 Width = 62 Height = 13 Caption = 'Attachments:' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object ToEdit: TEdit Left = 77 Top = 8 Width = 298 Height = 24 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 end object SubjectEdit: TEdit Left = 77 Top = 34 Width = 298 Height = 24 Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 end object AttachmentsComboBox: TComboBox Left = 77 Top = 60 Width = 298 Height = 21 Style = csDropDownList Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False TabOrder = 2 end end object BodyMemo: TMemo Left = 0 Top = 123 Width = 475 Height = 213 Align = alClient Font.Color = clNavy Font.Height = -13 Font.Name = 'Fixedsys' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 2 end object Panel1: TPanel Left = 0 Top = 336 Width = 475 Height = 35 Align = alBottom TabOrder = 3 object Panel2: TPanel Left = 306 Top = 1 Width = 168 Height = 33 Align = alRight BevelOuter = bvNone TabOrder = 0 object SendButton: TSpeedButton Left = 8 Top = 4 Width = 73 Height = 25 Hint = 'Send' Caption = '&Send' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFFFFFFFFFFFFFF000000000000 000077777777777777770FFFFFFFFFFFFFF07F3333FFF33333370FFFF777FFFF FFF07F333777333333370FFFFFFFFFFFFFF07F3333FFFFFF33370FFFF777777F FFF07F33377777733FF70FFFFFFFFFFF99907F3FFF33333377770F777FFFFFFF 9CA07F77733333337F370FFFFFFFFFFF9A907FFFFFFFFFFF7FF7000000000000 0000777777777777777733333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333333333333333333333333333333333330000} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = SendButtonClick end object ExitButton: TSpeedButton Left = 88 Top = 4 Width = 73 Height = 25 Hint = 'Cancel' Caption = '&Cancel' Font.Color = clBlack Font.Height = -12 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033338833333333333333333F333333333333 0000333911833333983333333388F333333F3333000033391118333911833333 38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333 911118111118333338F3338F833338F3000033333911111111833333338F3338 3333F8330000333333911111183333333338F333333F83330000333333311111 8333333333338F3333383333000033333339111183333333333338F333833333 00003333339111118333333333333833338F3333000033333911181118333333 33338333338F333300003333911183911183333333383338F338F33300003333 9118333911183333338F33838F338F33000033333913333391113333338FF833 38F338F300003333333333333919333333388333338FFF830000333333333333 3333333333333333333888330000333333333333333333333333333333333333 0000} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = ExitButtonClick end end end object Mailer: TSMTP CharSet = csUSASCII DefaultPort = 80 Left = 208 Top = 336 end end